home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / Wirth / Kurven / LineDrawing.def < prev    next >
Text File  |  1993-08-15  |  772b  |  25 lines
  1. (* -------------------------------------------------------------------------
  2.   :Program.       LineDrawing
  3.   :Author.        Kai Bolay
  4.   :Address.       Hoffmannstraße 168, 7250 Leonberg
  5.   :Phone.         07152/22135
  6.   :History.       v1.00 Initial
  7.   :Copyright.     PD
  8.   :Language.      Modula-2
  9.   :Translator.    M2Amiga 3.2d
  10.   :Imports.       Turtle [Manfred Weigl], IntuiStruct [bne]
  11.   :Contents.      Module supposed by Wirth
  12. ------------------------------------------------------------------------- *)
  13. DEFINITION MODULE LineDrawing;
  14.  
  15. FROM Intuition IMPORT ScreenPtr, WindowPtr;
  16.  
  17. VAR width, height  : INTEGER;
  18.     LineDrawScreen : ScreenPtr;
  19.     LineDrawWindow : WindowPtr;
  20.  
  21. PROCEDURE SetXY (x, y : INTEGER);
  22. PROCEDURE Line (dir45, dist : INTEGER);
  23.  
  24. END LineDrawing.
  25.